home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
inovatronics
/
edgedemo
/
edgeeditor
/
rexx
/
menu_wordtorep.edge
< prev
Wrap
Text File
|
1994-11-17
|
424b
|
21 lines
/*
** $VER: Menu_WordToRep.edge 1.0 (Friday 22-Oct-93 12:55:22)
**
** put the current word into the replace string
**
** Written by Thomas liljetoft & Inovatronics
*/
options results
/* move to the end of the current word, copy it */
position eow
cursor right 1
copy word back resultbuff
/* if we got a word then put it into the replacestring variable */
if rc==0 then do
putenvvar _fe_replacestring """"result""""
end